home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1169.dms / q1169.adf / SayTime / SayTime.bas < prev    next >
BASIC Source File  |  1997-04-10  |  1KB  |  63 lines
  1. DEFINT a-z
  2.  
  3. REM $INCLUDE Exec.bh
  4. REM $INCLUDE Intuition.bh
  5. REM $INCLUDE Dos.bh
  6. LIBRARY OPEN "exec.library"
  7. LIBRARY OPEN "intuition.library"
  8. LIBRARY OPEN "dos.library"
  9.  
  10. mempoint&=allocmem&(100,MEMF_ANY)
  11.  
  12. hour=VAL(LEFT$(TIME$,2))
  13. min$=RIGHT$(TIME$,6)
  14. IF hour>11 THEN 
  15.     hour=hour-12
  16. END IF
  17. t$=LTRIM$(STR$(hour)+min$)
  18.  
  19. st$="Say Time "+CHR$(169)+" T.Collier 1995.   "
  20. st$=st$+MID$(DATE$,4,3)+LEFT$(DATE$,3)+RIGHT$(DATE$,4)+"   "+t$+CHR$(0)
  21. a&=SADD(st$)
  22. l&=LEN(st$)
  23. copymem a&,mempoint&,l&
  24.  
  25. WINDOW 1,"",(500,11)-(90,20),64+128+256,-1
  26. SetWindowTitles WINDOW(7),-1,mempoint&
  27. DIM num$(15)
  28. RESTORE Numbers
  29. FOR f=0 TO 15
  30.     READ a$
  31.     num$(f)=a$
  32. NEXT f    
  33. t$=TIME$
  34. h$=LEFT$(t$,2)
  35. m$=MID$(t$,4,2)
  36. a=VAL(h$)
  37. IF a=0 THEN a=12
  38. IF a>12 THEN
  39.     a=a-12
  40.     t$=" P M"
  41. ELSE
  42.     t$=" AY M"
  43. END IF
  44. h$=num$(a)+" "
  45. a=VAL(m$)
  46. IF a<16 THEN m$=num$(a)
  47. IF a>15 AND a<20 THEN m$=num$(a-10)+" teen"
  48. IF a>19 AND a<30 THEN m$="twenty "+num$(a-20)
  49. IF a>29 AND a<40 THEN m$="thirty "+num$(a-30)
  50. IF a>39 AND a<50 THEN m$="forty "+num$(a-40)
  51. IF a>49 AND a<60 THEN m$="fifty "+num$(a-50)
  52. m$=m$+t$
  53. SAY TRANSLATE$(h$)
  54. SAY TRANSLATE$(m$)
  55. delay(100)
  56. freemem mempoint&,100
  57. STOP -1    
  58.  
  59. Numbers:
  60. DATA " ","1","2","3","4","5","6","7","8","9","ten","E levn","twelve"
  61. DATA "thir teen","four teen","fif teen"
  62.  
  63.